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IDENT *V03-016' 


Site 
ei Facility: SHUTDOWN, Procedure for Performing an Orderly System Shutdown 


i Abstract: 
$! 


This procedure is invoked to perform an orderly shutdown of a 
VAX/VMAS system. It supports a variety of options, as described 
below. All necessary steps are performed to clean up the 
system and bring it down for rebooting. 


Pi Number of minutes until final shutdown. 
P Reason for shutdown. 

P Should the disk volumes be Spun down? 

P4 Should SYSHUTDWN.COM be invoked? 

PS Time when system will be rebooted 

P Should system be rebooted automatically? 
p Comma-separated List 


0 ceyuords. Legal 
keywords: REBOOT _CHECK,CLUSTER_SHUTDOWN, 
REMOVE _NODE, and NONE 


$! 
! Environment: DCL with the following privileges: 
$! CMKRNL_ F 


or system utilities. 
EXQUOTA Just in case. 
LO SET TIME 


OPER For broadcasting messages and SET TIME. 
SYSNAM for sen soulet ies system logical names. 
SYSPRV For ayetee utilities. 

s 


WORLD for stopping all user processes. 
i Author: Paul C. Anagnostopoulos 
Creation: 8 April 198 
Modifications: 
v03-016 BLS0349 Benn Schreiber 30-AUG-1984 
Upcase logicals in f$trninm calls. 
v0O3-015 BLS0343 Benn Schreiber 25-AUG-1984 


Do not allow REMOVE_NODE and CLUSTER_SHUTDOWN at the same 
time. Ensure quorum disk exists. 


v03-014 BLS0341 Benn Schreiber 17-AUG-1984 
Correct locating of ERRFMT process. 


v03-013 8LS0337 Benn Schreiber 8-AUG-1984 
If SHUTDOWNSINFORM NODES logical is defined, only reply 
to those nodes. ($ define shutdownSinform_nodes ‘'nod! ;nod2"") 
Change message text to ‘please log off node <nodename>’. 
Add executive mode to translations of sys$node. 


v03-012 BLS0330 fern Schreiber 3-JUL-1984 
Don’t stop ERRFMT if it is not running. 

v03-011 BLS0326 Benn Schreiber 25-JUN-1984 
Correct handling of abbreviations of P7. 

v03-010 KDM0104 Kathleen D. Morse geoney~1984 


Move SET TIME out of parameter request Sf Add OPE 
and L0G_I0 privileges, in order to do the SET TIME. 


v03-009 KDM0103 Kathleen D. Morse 18-May-1984 
Add a couple SET TIME commands so that the MicroVAX | 
last known system time can be used upon reboot if 
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v03-011 


v03-010 


v03-009 


vOS~-008 


v03-007 


v03-006 


v03-005 


v03-004 BLS0248 


v03-003 


v0O3-002 PCA1026 


v03-001 Pcatpee 


If this 


N 6 


TIMEPROMPTWAIT is set to 0. 


CWH3011 CW Hobbs 11-MAY-1984 
Don't realy to the whole cluster all the time, only send the 

d the last three messages. Change DISMOUNT command 
to use the /ABORT qualifier. 


BLS0312 Benn Schreiber 5-MAY=1984 
Correct handling of P7 abbreviations. Use SYSS$SPECIFIC 
for po tees a ie oe library disk if tailored system 


and library dis mounted. 

BLS0304 Benn Schreiber 16-APR-1984 
Change to DISK_QUORUM parameter. 

BLS0301 Benn Schreiber 11-APR=-1984 


Ask about auto-reboot before ‘when back up’ and adjust 
default answer if auto-reboot. 


BLS0290 Benn Schreiber 22-MAR=1984 
orrect pares disk handling if clustermember but no 
quorum disk. Define opc$nodump for opccrash. 


BLS0274 Benn Schreiber 22-FEB-1984 
Modify P7 usage, add cluster shutdown features. Don't dismount 
the quorum disk. 


BLS0253 Benn Schreiber 11-Dec-1983 
Make reboot checking controlled by P7. 


Benn Schreiber 5-Dec-1983 
Speed up loops, and use INSTALL PURGE command. Add soeek ng 
to ensure that files needed to reboot the system are present. 


CWH3003 CW Hobbs 21-Sep-1983 
Change REPLY command to REPLY /SHUTDOWN so that users will 
have specific control over receiving shutdown messages. 


Paul C. Anagnostopoutos 19-Aug-1983 
Fix a bug in the code that sets up SHUTDOWNSTIME. 


Paul C. Anagnostopoulos yy: a 
a 


weak the algorithm for dismounting disk volumes so t 
it is more robust. 


is a recursive invocation, then we have a callback to perform 


some function. P1 is the requested function. 


if f$type(shutdown$in_progress) .nes. 


then goto ‘pi 


goto begin_shutdown 
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B 7 
This routine can be recursively invoked to ask the user a question 
and obtain an answer. 


ASK 

A global syeeet to be equated fo the answer. 

The prompt string, with no trailing punctuation. 
P4 The default answer. 

B for boolean answer, I for integer, S$ for string. 


on control_y then exit %x10360004 
on error then exi t By 60 04 

if p4 .nes. *”’ =p ph pd + 
p3 = ps + iSext(f$Loe (p5, 1S", 1°22) o 


read/end_of ot lraste/oresets*"? 3°"* sys$command ans 
f ans .é@qs. a= 2 4 


if ans .eqs. nen goto al0 
ans = f$e ficans ''t RESS, oTRIM"") = Cwmne Coorne omteme. stetetee 
goto a_'p 


ans = f$edit(ans," UPCASE"’) 

$4 
iS Sieg tone, “VES? -eq. 0 then exit %x10360001 
iP f$loc(ans,"'NO'') .eq. 0 then exit %x10360001 
say ““ZSHUTDOWN-E-YESNO, Please enter YES or NO."' 
goto a10 
*p2 == f$int(ans) 


if veeGrown .e **INTEGER’’ then exit %x10360001 
~ *SSHUTDOWN-E- NTEGER, Please enter an integer number." 


i se 
exit %x10360001 


v 


PSOOeweseersrererees PRPM~N 


y 


PARAMS 
Ss 


oe 
vars routine can be recursively cavenes fe. eect a boolean answer for 
validity and report an error message t's not. 


P CHECK _BOOLEAN 
P Answer to be checked. 
P Error message. 


CHECK _BOOLEAN: 
on control_y then exit 719360006 
on etl then grit 21056 
Sloe (pe, Es" 24. 0 .or. f$loc(p2,""TRUE'') .eq. 0 .or. = 
p Leeds on “Nos” “00. 0 .or. f$loc(p2,"FALSE'’) .eq. 0 then exit %x10360001 


sa ye p3 
exit %x10360000 
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wre 


Say hello. 

say f$fao("'!/!/! SHUTDOWN -- Perform an Orderly System Shutdown! /'') 
Remember the current environment and establish the one we need. 
privs = ‘"CMKRNL, EXQUOTA, OPER, SYSNAM, SYSPRV, WORLD, LOG_I0"' 
saved_privs = f$setprv(privs) 


f .not. f$privilege(privs) then say ‘"ZSHUTDOWN-F-NOPRIV, The following privileges are required:"' 
f .not. f$privilege(privs) then as Peay WN-F-NOPRIV, ‘'privs'” 
x 


if .not. fSprivilege(privs) then ex 360004 
! Write system time back to system parameter file for MicroVAX I. 
SET TIME 


saved_msg = fSenvironment (''MESSAGE'') 

set avon Spey Tac Ut Nby/sover tty/ identi ticatton/text 
saved “. = f$user( 

set uic [1 


Set up a pretty system name. 


cluster_member = f$ etsy iC ELUSTER_REMBER”) 
oyetes = f$getsyi(' NODENAME'') ; 

if system .eqs. '"’ then system = f$trninm(''SYSSNODE"’,"‘LNMSSYSTEM_TABLE’',,"‘EXECUTIVE'’) = ‘_'' = “Tt = "3"! 
nodename = system 

if system .eqs. ‘"' then nodename = 
if system .eqs. *"’ then system = ‘The system'' 


Establish CTRL/Y and error handlers. 


on control_y then goto CANCELLED 
on error then goto CANCELLED 


Get valid values for all of the parameters. Prompt for the ones 
that were not supplied on the command Line. 


min = fSint(f$trainm("'SHUTDOWNSMINIMUM_MINUTES'’,""LNMSSYSTEM_TABLE'')) 
fSedit(p1,"UPCASE’’) .eqs. ‘MINIMUM’ then pl = min 


if 
if pl .egs. ““* then recurse ASK shutdownS - 
Ow many minutes until final shutdown" ‘min i 

if pl .eqs. *"’ then pi = shutdown 
if rStypp lel) nes. INTEGER" then say - 

“ESHUTDOWN-E~INVMIN, Specify an integer for minutes until shutdown.” 
if fStype (pl ) .nes. “INTEGER then goto CANCELLED 
pi = n 
if pl .lt. Sta then eer ““$SHUTDOWN-E-MINMIN, Minutes until shutdown must be at least ''min."' 
if pl .lt. min then goto CANCELLED 
if p2 .eqs. *"* then recurse ASK shutdown$ - 

“Reason for shutdown"’ "Standalone" s 
if p2 .eqs. then p2 = shutdown$ 
if pS .eqs. *"* then recurse ASK shutdown$ - fae 

"Do you want f° spin down the disk volumes’ ‘'NO"’ b 
if p3 098, then p5, = shutdown a at 
recurse CHECK_BOOLEAN ‘**'p3°**’ “ZSHUTDOWN-E-INVSPIN, Specify YES or NO for spinning down the disks. 
if .not. $stafus then goto CANCELLED 
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..? 


if p4 ec q """ then recurse ASK phutdown ' 
if ps © you want to vayene the s tecspecitic shutdown procedure” ‘YES’ b 


then 
ciureh HECK BOOLEA no SDRC PESHUTDOUN-E~INVPROC, Specify YES or NO for site-specific shutdown." 
if .not. $stafus then goto CANCELLED 
*“* then recurse ASK shutdown$ - 
pore. nou) an eupenet te ayer m reboot be performed” ''NO"’ b 

-eqQs. en 
recuree HECK_BOOLE une sett *YSHUTDOWN=E=INVREBOOT, Specify YES or NO for immediate reboot.’ 
if .not. $stafus then goto CANCELLED 


if pé6 2e e. 


| 
= “‘lLater"’ 
if po then w = ‘’shortly via automatic reboot” | 
if pd .e¢ cz. " then recurse ASK shutdown$ = | , 

n will the system be rebooted’ ''w'"' s 
if pS Py 


Parse P7 
cmd_p7 = p7 


get_p7: : 

reboot check f = ‘'N’ 

remove_node_f = ‘'N’’ . 

cluster_shutdown f = ‘'N' 

fes. ‘"’ then goto parse_p7 
say f$fa0("shutdown Sos cane tonter as a comma-separated List):'’) 
if eranter _member 
ay FStaoc {ZO<REMOVE NODE! >Remaining nodes in the cluster should adjust quorum’) 

if cluster smenber 


then p5 = shutdown$ 
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ay, soc TOO<CLUSTER SHUTDOWN! >Entire cluster is shutting, down’) 
Say t$taot” soekeBoOs CHECK! >CReck existence of basic system files”) 
a 


s 
recurse ASK shutdown$ ‘Shutdown options’’ ‘‘NONE"’ s 
7 = shutdowns 
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p7 .eqs. *"* then goto ask_r_check 
Fless = *'/REBOOT_CHECK"’ : 
Guster ome then, p/ clone = p7_flags + *'/REMOVE_NODE/CLUSTER_SHUTDOWN’ 
ags = 

= Beaitt (p7,' *95 im.uP UPCASE™”) hae” oa 


PRMMAGM 
co 
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= es ** tp7) 

t1 ees wont” pote p7_loopend 
et seas en goto p/_none 
= 


+ a 2,01), .eqs. "NO" then t2 = f$ext(2,999,t1) 

tl .e Re’ -and pots _member then goto bad _p? !ambiguous 
= fSlact'y" ti?" gs) 

t3 ghee » fbtengenterctt tt39s) then goto p7_found 


t3 — iSlengentoy- 39s) then goto bad_p7 


= fSelement(0, afg(gfts) geract( st -999,.p7_flags)) 
eq. 0 


goto p a gs 
one: 


reboot_check_f = ‘N" 
remove_node f= 'N" 
cluster. shutdowns! 5 = "'N 


$ 
$ 
$ 
$ 
$ 
$ 
+7 
4 
$ 
ge? found 
$ 
4 
4 
$ 
$ 
$ 
$ 
$ 


goto p7-Loop 
od_p?: ere if invalid parameter entered for P7 
“7 say me rhe INVALID_P7, ‘'ti' is an invalid value for the P7 parameter’ 
o p/..c kredo 


o-- 


f he _p7 .nes. then goto cancelled 


8 
goto get_p7 
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f .not. (remove_node f .and. cluster_shutdown_f) then goto ckf_c 

7 ck Ri ““SSHUTDOWN-E=INVREQ, You may not Specify both REMOVE_NODE and MeCUsTER. SHUTDOWN'' 

p redo: 
7s 
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ite cmd_p7 .nes. then goto cancelled 
a 


A. © get_p7 


o 
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“st -Not. reboot _check_f then goto no_ckf 


BT 65 c°°t peseesToqun=]-BOOTCHECK, Per toraing sOreae. Se ete check...'') 
!'*=contiguous, aaaqnene. fhe with ~~ +. 
‘Any files requirin neyen “"Z"* must 80/45 s file o-get type 
flist = ‘‘SYS$ VSTEM: SYSBOOT. EXE Who SY St OARASYSINTT et axaeyk \SYS\DCL\T FRRIVER A RSINOUTNSTARTUP comM\"’ 
flist = fies + tT BRARY : 4a tir aes. rae NTSHR\SYSSSYSTEM: SYSGEN\JOBCTL \VMOUN 
if cluster_m pesber ghen flist sssy YSTEM: CLUSTRLOA\SCSLOA\CSP\" 
cpulist = 0/7 0/7 077307790/8s5/BNN/Uv1 /Uv2/ 
vs = fSgetsyi('' cpu’) 
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errors = 0 
Lose through the List of files, checking each one 


2 fSelem(0,""\"", flist) 
f .eqs, * then goto ckf_done 


=f- 
f$loc("S", t) mb f$len(f) then goto ckf_cpu 


= eta gs oh get fhe db *“SYNTAX_ONLY*')) 

tf .eqs. ‘"’ then goto ckf_fnf 

f$loc("®", f) eq. f$len(f)~ dl goto ckf_next 
not. f$file(tf."CTG") then goto ckf_fnc~ 
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1 
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f 

f 

f 

f 

f tf “Ogs. “* then gore ckf next80 

f rif .eqs. ‘"’ then f 

f fSparset? TYPE™,'SYNTAX X_ONLY’') .eqs. ‘*."* then goto ckf_next20 
lf = elf - fSparse(rlf., NTYPET "SYNTAX ONLY") 

4 =rlf + feporsec tl TYPE, “SYNTAX_ONLY'’) 

f 
l 
l 
4 


o 
so 
—~ 
3 
» 


aon 
xr 
— 
aa 
x 


80: 
flist = flist - ""'f*\" 
goto ckf_loop 
ckf_ cpu: 
t= fSelen(spy. /” cpul ist) 
if t .eqs. then goto ckf_next 
ah fe t ‘ 
o ckf_con 
ckf_fn a 
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‘ say ““ZSHUTDOWN-1-CHECK 


SF 
d. ((cpu .eq. 7) .or. (cpu .eq. 8)) then goto ckf_next 
IN, Error opening ‘'tf' as input" 


errors = errors + 
goto ckf_next 


cs 

tf = f$parse(fi, rif) 

Say “ZSHUTDOWN-E-NOTCONTIG, File ''tf' is not contiguous” 
errors = errors + 1 

goto ckf_next 


if errors .ne. 0 then goto conchkerrs 
I K, Basic reboot consistency check completed’ 


s 
$define_shutdown time: 


Establish a system logical name that tells people when the final 
shutdown will occur. 


w= f$cvt ime (''+"'+f$str(p1/60)+"":""+f$str (pl = p1/60*60) ,"‘ABSOLUTE’’) 
define /system /exec shutdownStime ‘'w'"' 

Now we are going to begin a loop which passes the time until final 
shutdown. The basic idea is to broadcast a message, then divide 
the remaining time in half, wait, and broadcast again. Special 
processing is performed at the 6-minute mark so that the system 
will be running stand-alone. 


remaining = pl 
stand_alone = 0 
queuves_stopped = 0 
to_whom = ‘‘/all' 
inform_nodes = f$trninm(""SHUTDOWNSINFORM_NODES'',"'LNMSPROCESS_TABLE"’) 
1 infora_npdes -nes. ‘"’ then to_whom = "'7all/node=(''inform_nodes')"' 
ou = 
halve table = '0,0,1,2,2.3,3.4"" 
if remaining .gt. 6 .or. stand_alone then goto 33 


The first time we pass the 6-minute mark, we need to 
make the system stand alone, by disabling interactive 
logins and ghusting down the network. We also make this 
an operator's terminal so the user can see operator 
messages. 


Oey Fee TOu=E“SPERATER, This terminal is now an operator's console." 
re enable 

sey T'ASHUTDOWN-1-D1SLOGINS, Interactive logins will now be disabled.”’ 
set Lop ta/jpteract ives 

logout = *' Please log off." = x 
if nodename .nes. then og out = \ Please log off node **nodename’. 
w = f$trninm(’’SYSSNODE’’, “LNMSSYSTEM_TABLE'’,, EXECUTIVE’) .nes. *" * 
if w then say ‘“ZSHUTDOWN-I-SHUTNET, The DECnet network will now be shut down. 
if w then mcr ncp set executor state shut 

stand_alone = 1 


The first time we pass the l-minute mark, we want to stop 
the queue manager. 


if remaining .gt. 1 .or. queves_stopped then got 
sa TT SHUTDO WINS I MAN 44 ? 
set noon 


36 
-STOPQUE Thé queue manager will now be stopped."’ 
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cog eet eren: SYSUSTE TEN: :QUEMAN.EXE'') .nes. ‘"’ then stop/queue/mananger 
Queues_stopped = 1 


Broadcast a shutdown message to all terminals the first time, 
to all users from then on. Then determine the next 
half-time interval and wait until then. 


reply_done = 1 

if redeining -gt. 2 then Bits 37 

if informnodes .eqs. ‘"' then to_whom = to_whom + ''/nonode’ i 
if inform=nodes .nes. ‘"' then to_whom = to_whom + “pnodest' inform. nodes') 


msg = f$faol"!AS will shut aS log in a, minute!%S; back up !AS.!AS!/!AS", = 


stem,remainin ° _ 
reply, to SYhon/bel tshutdoun Vis fepe) 
to whom = ‘'/user/node"' 
if~remaining .eq. 0 then goto 39 
half = sewn ag 98, helve. table) 
if half .eqs. n half'= remaining / 2 


delay = remain in ng - negine (half) 

wait ‘fSint(delay/60): "#Sint (delay - delay/$0*60) 
remaining = f$in th half) 

goto 30 


Disable error checking from this point on, because we are 
now committed to the shutdown. 


set noon 
If requested, invoke the site-specific shutdown procedure. 


= p4 .and. f$search(''sys$manager:syshutdwn.com'’) .nes. ‘"' 
tf w then say ‘“ZSHUTDOWN-I-SITESHUT, The site-specitic. shutdown procedure will now be invoked.” 
if w then a@sys$manager :syshutdwn 


Stop all processes unless they are in system group 0 or 1. 


Soy SIC E-STOPURER, ALL user processes will now be stopped."' 
errfmt = 
mypid = fSgetipic™’, PID) 


context 
pid = ye ad om 
if pid goto 
qip= z tiget pi colds Bre 9 


€ 
“ond, tSgetipi (pid, “*PRCNAM'') .eqs. "ERRFMT’’ then errfmt = 1 
f pid .eqs. mypid .or. grp a 1 then goto 50 

stop/ igentitication= pid 


Stop the secondary CPU if it exists and hasn't already been stopped. 


if f$search(’'SYSSSYSTEM:MP.EXE’) .eqs. ‘“* then goto 60 

define/user sys$output nl: 

bg ogee sys$error al: 

show ¢ 

secondary = $statu ” 
f secondary then’ sey ““ZSHUTDOWN-I-STOPCPU, The secondary processor will now be stopped. 
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if secondary then stop/cpu 
Remove all installed images so deleted ones won't be ‘ost. 


say ‘SSHUTDOWN-1 atthe ALL insgatled images will now be removed."’ 
install = ae /command_mode' 
install purge 


Dismount all mounted volumes, except for the system volume. 


say ‘"ZSHUTDOWN-1 TDL SROUNT « ANt poses will now be dismounted.” 
if eRe g Tegetey yic''’t red’’) Ret o 61 

if aet dvi(' SCissyspevice, msste"? then goto 61 

if tégetdvit IBSSY VSpeV pS “i 
@sys$update:vmstailor d shoud * sdoetdvic’ ‘LIBSSYSDEVICE’’,"’FULLDEVNAM'') 


dmo = ‘dismount _/teyntect, 


if p3 then dmo ‘dismount /unl ad’ 
sysdev = Isgetdys *s¥sesTSDEViC 
uorum_disk 


f slter neuber then quorum_d 
quorun, di disk = f$Sedit(quorum_d7s 
exis 
tT ourun disk .nes. '"* then q_exist = 1 
if q_exist then q_exist = tSge dvi (quorum. disk,’ EXISTS") 
-Mot. Qexist Ehen quorum_disk 
if quorum_disk .nes. '"’ then” quorum. isk = popecge st toecte tquerun. disk,’"TRIM'') ,""FULLDEVNAM'') 
define/user Systoutput sys$specific:CsysexeJshutdown. tmp 
show device/mounte 
open/error=69 shutdowns tenp file SygSepec tiie: Ceysexe jshutdoun. tmp 
read/end offi le=697error= utdown$ Stenp.t e Line 
f f$locT’:", Line) eq. tslanitine) th en m gote 9. 62 
f .not. f$getdvi(fSelem (0,"" ol ing) EXISTS") then goto 62 
dev = f$getdavi(f id ty OP 3, eli ne), FULLDEVNAM'’) 
if fSgetd vitdev.' EVCLASS") .ne. 1 .or. - 
not. f$getd sey tae iy fiat) -or. gov eqs. sysdev then -_ 62 
if dev GDN T-bT disk then thes 0 6 
dnd pe CO TSMOUNT DEV, Dismounting device ''dev.’ 
~o 


0a oe 
E*’,""FULLDEVNAM'’) 
is 

k, 


k= fSgetsyi (DISK QUORUM) 
"TRIM, COLLAPSE'’) 


Los e /ndtog, shurdownttens file se 
f$search syetepee tv igi UsysexeJshutdoun. -tmp’’) .nes. ‘'"' ther - 
delete sys$specific:C(sysexe]shutdown. tmp; * 


Place a final message in the console , og and then close it. 
Disable this terminal as an operator's console so it won't still 
be one when we reboot. Wait long enough for the stuff to complete. 


if HBocar she SVSERYSTER: REQUEST.EXE"') .nes. ‘"* then request - a 
t!AS shutdown was requested by the operator.''’,system) 


renters 


Stop the error formatter and then bag the system. Several logical names 
are defined to control OPCCRASH. 


if errfat then stop Bed 
define opc$unload 

define opc$reboot +73 

Gefine opc$cluster_ shutdown *cluster_shutdown_f 
define opc$remove_fode ‘remove_node_T 


wurne 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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define opc$nodump y 


Write system time back to system parameter file for MicroVAX I. 
wd 5358 
7. "Es : Berea: =F eORt RASH, The system could not be crashed."’ 
x 


PAAR 
m 


tad 


VMMIM 
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1 
i 
conchkerrs: 


K 7 
Here if the reboot consistency check fails. Tell the user to 
correct the problem before shutting down the system 


Say ‘'ZSHUTDOWN-E-NOREBOOT, The system will be unable to febogt. 
= fpiodl (+ flamer Correct above errors before shutting down the system’ 
o cancelle 
e come here tf the user enters CTRL/Y oa the shutdown procedure. 
Clean up and restore the original environment. Tell the users with 
the /SHUTDOWN reply, so that everyone who saw the shutdown messages 
will also see the cancel message. 


CANCELLED: 


if fStype (reply dene) ones. ‘"' then reply/all/bell/shutdown - 
“**#$fao("!AS shutdown has been cancelled.’’,system) 
Slose /nolo ghutdounstone..t ite 
f fStrninmU'SHUTDOWNSTIME™,"‘LNMSSYSTEM_TABLE'') .nes. ‘"' then deassign/system/exec shutdownSt ime 
if f$trnimm(OPCSUNLOAD') .nes. '"' then deassign opc$unload 
if f$trninm(OPCSREBOOT’') .nes. then deassign opc$reboot 
set uic ‘saved_uic 
saved_privs = f$setprv(saved_privs) 
set message * + hhh 
exit %x10360001 


—_ 
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